home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dde / odbcncap / utility.bas < prev   
BASIC Source File  |  1995-10-26  |  614b  |  24 lines
  1. Option Explicit
  2. Dim workString() As String
  3.  
  4. Function StripNullStrings (sStuff As String) As String
  5.     ' Removes everything after a null character in a string
  6.     ' Accepts a string
  7.     ' Returns the shortened string
  8.     ' Also returns the shortened string in the passed buffer
  9.     Dim iNull As Integer
  10.  
  11.     iNull = InStr(sStuff, Chr$(0))
  12.     If iNull > 1 Then sStuff = Left(sStuff, iNull - 1)
  13.     StripNullStrings = sStuff
  14. End Function
  15.  
  16. Sub waitcursor (PointerState As Integer)
  17.     If PointerState = True Then
  18.     screen.MousePointer = 11
  19.     Else
  20.     screen.MousePointer = 0
  21.     End If
  22. End Sub
  23.  
  24.